home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ IE Outlook Express 2.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  72 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Outlook Express\Data Storage"
  5. "NAME"="Address Book"
  6. "VERSION"="1.14"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Address Book"
  9. "DATA 1"="WAB Files (*.wab)|*.wab"
  10. "DESCRIPTION 1"="If you do not like the default location of your Outlook Express Address Book, you can change it here."
  11. "DESCRIPTION 2"="Please select the new location for the address book (WAB) file and the file will be moved there."
  12. "DESCRIPTION 3"="Remember to exit Outlook Express before applying the change!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"=" "
  18. "COMMENT 3"="Thanks to Bj÷rn Teichmann and Marco Schelling for this setting."
  19. "COMMENT 4"="Thanks to James_R_Morris_Jr [James_R_Morris_Jr@ims.msn.com] for the spelling correction."
  20.  
  21.  
  22.  
  23. 'sPath="HKCU\Software\Microsoft\WAB\WAB4_1\Wab File Name\"
  24. sPath="HKCU\Software\Microsoft\WAB\WAB4\Wab File Name\"
  25. sPath2=sPath & "@"
  26. sOld=""
  27. Sub Plugin_Initialize 
  28.  if RegPathExists(sPath) then
  29.   s=RegReadValue(sPath2)
  30.   SetUIElement 1,s
  31.  
  32.   sOld=s
  33.  else
  34.   Disable
  35.  end if
  36. End Sub
  37.  
  38. Sub Plugin_CheckData(ElementIndex)
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  s=GetUIElement(1)
  43.  
  44.  if s<>"" then
  45.   if UCase(right(s,3))<>"WAB" then
  46.    Call MsgError("Please enter the name and path of the WAB file, for example C:\DATA\ADDRB.WAB. Do not forgot the WAB extension.") 
  47.   else
  48.    if FileExists(s)=true then
  49.     Call MsgError("The selected file already exists! Please choose a different name.")
  50.    else
  51.     'looks OK, let's try it
  52.        
  53.     Call FileCopy(sOld,s)
  54.     Call RegWriteValue(sPath2,s,4)
  55.  
  56.     Call FileDelete(sOld)
  57.  
  58.     Call MsgInformation("File has been moved to " & s & ".")
  59.    end if
  60.   end if
  61.  else
  62.   Call MsgError("Please supply a location for the WAB file!")
  63.  end if
  64. End Sub
  65.  
  66.  
  67. Sub Plugin_Terminate 
  68. End Sub
  69.  
  70.  
  71.  
  72.